﻿Imports System.Data.SqlClient

Public Class VideoDAO

    Public Function insertar(ByVal modelo As Video) As Video
        Try
            Dim cn As New SqlConnection(ConexionBD.obtenerCadenaConexion())
            cn.Open()

            Dim sql = "INSERT INTO VIDEO (JUEGO_IDJUEGO, NOMBRE_VIDEO, FECHA_REALIZACION) VALUES (@VALOR1, @VALOR2, @VALOR3)"

            Dim cmd As New SqlCommand(sql, cn)
            'cmd.Parameters.AddWithValue("@VALOR1", modelo.idEmpleado)
            cmd.Parameters.AddWithValue("@VALOR1", modelo.Juego_idJuego)
            cmd.Parameters.AddWithValue("@VALOR2", modelo.Nombre_video)
            cmd.Parameters.AddWithValue("@VALOR3", modelo.Fecha_realizacion)




            Dim afectados = cmd.ExecuteNonQuery

            If afectados <> 1 Then
                Throw New DAOExcepcion("VideoDAO: No insertó")
            End If

            ' LEER EL ULTIMO ID
            sql = "SELECT @@IDENTITY"
            cmd = New SqlCommand(sql, cn)
            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader()
            If dr.Read Then
                modelo.idVideo = CType(dr(0), Integer)
            End If

            dr.Close()
            cn.Close()

        Catch ex As Exception
            Throw New DAOExcepcion(ex.ToString)
        End Try

        Return modelo

    End Function

End Class
